unit USA001;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, UMasterDetail, DBGridEhGrouping, ToolCtrlsEh, DBGridEhToolCtrls, DynVarsEh, FireDAC.Stan.Intf, FireDAC.Stan.Option, FireDAC.Stan.Param,
  FireDAC.Stan.Error, FireDAC.DatS, FireDAC.Phys.Intf, FireDAC.DApt.Intf, FireDAC.Stan.Async, FireDAC.DApt, FireDAC.Comp.Client, Data.DB, FireDAC.Comp.DataSet, frxClass, Vcl.Menus,
  frxDBSet, USelectdate, System.ImageList, Vcl.ImgList, Vcl.DBActns, System.Actions, Vcl.ActnList, Vcl.StdCtrls, Vcl.Buttons, Vcl.ExtCtrls, EhLibVCL, GridsEh, DBAxisGridsEh,
  DBGridEh, Vcl.ComCtrls, Vcl.ToolWin, cxGraphics, cxControls, cxLookAndFeels, cxLookAndFeelPainters, cxStyles, dxSkinsCore, dxSkinsDefaultPainters, cxCustomData, cxFilter, cxData,
  cxDataStorage, cxEdit, cxNavigator, dxDateRanges, cxDBData, cxGridLevel, cxClasses, cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGrid,
  cxContainer, cxMaskEdit, cxDropDownEdit, cxCalendar, cxDBEdit, cxTextEdit, Excel2000, Vcl.OleServer,
  cxButtonEdit, cxLabel;

type
  TSA001 = class(TfrmMasterDetail)
    procedure FDQryMasterNewRecord(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SA001: TSA001;

implementation
uses ucommon,USelectdata;

{$R *.dfm}



procedure TSA001.FDQryMasterNewRecord(DataSet: TDataSet);
begin
  inherited;
 // FDQryMasterSOR_Date.AsString :=formatdatetime('yyyy-MM-dd',now());
 // FDQryMasterSOR_CreatedBy.AsString :=username;
 // FDQryMasterSOR_CreatedTime.AsDateTime :=now();
end;

initialization
  RegisterClass(TSA001);

finalization
  UnRegisterClass(TSA001);

end.
